home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 18
/
CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso
/
CUCD
/
Programming
/
AmigaE
/
Src
/
Args
/
WbArg.e
< prev
Wrap
Text File
|
1992-09-02
|
443b
|
16 lines
/* reading the arguments when started from wb.
give this program a .info file, and shift-select some icons with it. */
MODULE 'workbench/startup'
PROC main()
DEF wb:PTR TO wbstartup, args:PTR TO wbarg, a
IF wbmessage=NIL /* we got from cli */
WriteF('args = "\s"\n',arg)
ELSE /* from wb */
wb:=wbmessage
args:=wb.arglist
FOR a:=1 TO wb.numargs DO WriteF('wbarg #\d = "\s"\n',a,args[].name++)
ENDIF
ENDPROC